home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 12-09.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  1KB  |  58 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Solid(32), Hollow(32)
  6.  
  7. Rem Solid values
  8. DATA &hE03F,&hE03F,&hE03F,&h0007,&h0007,&h0007,&h0007,&h0007
  9. DATA &h0007,&h0007,&hE03F,&hE03F,&hE03F,&hFFFF,&hFFFF,&hFFFF
  10. DATA &h0000,&h0F80,&h0F80,&h0F80,&h7FF0,&h7FF0,&h7FF0,&h7FF0
  11. DATA &h7FF0,&h0F80,&h0F80,&h0F80,&h0000,&h0000,&h0000,&h0000
  12.  
  13. REM Hollow values
  14. DATA &hE03F,&hEFBF,&hEFBF,&h0F87,&h7FF7,&h7FF7,&h7FF7,&h7FF7
  15. DATA &h7FF7,&h0F87,&hEFBF,&hEFBF,&hE03F,&hFFFF,&hFFFF,&hFFFF
  16. DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0200,&h0000
  17. DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000
  18.  
  19. OldMode = FGgetmode
  20. FGsetmode(FGautomode)
  21.  
  22. IF FGmouseini < 0 THEN
  23.    FGsetmode OldMode
  24.    FGreset
  25.    STOP
  26. END IF
  27.  
  28. FOR I = 0 TO 31
  29.    Read Solid(I)
  30. NEXT
  31. FOR I = 0 TO 31
  32.    Read Hollow(I)
  33. NEXT
  34.  
  35. FGsetcolor 15
  36. FGrect 0, FGgetmaxx, 0, FGgetmaxy
  37.  
  38. FGsetcolor 12
  39. Column = FGxalpha(FGgetmaxx/2) - 6
  40. LastRow = FGyalpha(FGgetmaxy) + 1
  41.  
  42. FOR Row = 0 TO LastRow
  43.    FGlocate Row, Column
  44.    FGtext "example 12-9", 12
  45. NEXT
  46.  
  47. FGmousevis 1
  48. FGwaitkey
  49. FGmouseptr Solid(), 6, 6
  50. FGwaitkey
  51. FGmouseptr Hollow(), 6, 6
  52. FGwaitkey
  53.  
  54. FGsetmode OldMode
  55. FGreset
  56.  
  57. END
  58.